Top 10k strings from Laser Genius Z80 Assembler v1.04 (1986)(Ocean Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   7 accumulato
   7 GRA.PLOT.ABSOLUT
   4 movefromac
   4 GRA.SET.ORIGI
   3 multiplican
   3  Workspace.
   2 test.horizonta
   2 print.prime
   2 insufficien
   2 Space left for stack 
   2 Source length:
   2 SZ-H-PNC  RMP-V-I
   2 SCR.GET.MOD
   2 Release keys/joystic
   2 RELOCOBJ  
   2 RELOCATE  
   2 Press a ke
   2 OASIS 1986
   2 MON       
   2 Erase existing file (Y/N)
   2 ANALYSER DEFINITIONS:
   2 AB9:CD;<EF=>GH?@
   2 ;"tel. 011-811-208":
   2 ;"Version 1.05":
   2 ;"LASER GENIUS Z80 Monitor":
   2 ;" P R E D R A G & X O R  S O F T ";
   2 ,centronics
   2 ************************
   2 ***************
   2 ####F#N#p#q
   2 "Using analyser ?(Y/N)";S$
   2 "Using analyser ?";S
   2 "Relocate at ?";n
   2 "Relocate (Y/N) ?";S$
   2 "RELOCOBJ"
   2 "RELOCATE"
   2  than zero.
   2  delta=DELTAi+DELTAi+b2s
   2  b2s=b2*(2*yi+1)
   2  as it is used by "print.int".
   2  a2s=a2s+a2+a2
   2  This must be before "print.int"
   2  ROM plot routine
   2  OASIS SOFTWARE 1986"
   2  Main calculation loop.
   2  Entry point.
   2  DELTAi=DELTAi-b2s
   2  DELTAi=DELTAi+a2s
   2  ************************
   1 x8""""""#&"(7
   1 x3""""322&3(2""""322 3 2
   1 verificatio
   1 unavailabl
   1 symbol shift 
   1 start recordin
   1 sState of stack
   1 sNo Addr  Type State Init  Coun
   1 sMicrodrive No
   1 sCURRENT BREAKPOINT SELECTIONS
   1 sAnalyser Error
   1 s/Insert m'drive, press any ke
   1 s** Undefined *
   1 s      START    END
   1 return in the 
   1 q+p+w+r+s+
   1 papcol=inkcol
   1 load another file (Y/N)
   1 initialisatio
   1 does not exis
   1 division by 
   1 declaratio
   1 centronics=1
   1 centronics=0
   1 Would you also like to execute 
   1 This call doesn't
   1 TRANSBIN  h
   1 TRANS     
   1 TOOLS     
   1 State of stack
   1 Start the tape....please
   1 Set AMSTRAD to 0 for use on the SPECTRUM.
   1 Save (S) or run code (R)
   1 S[SgS=SyS~SsS
   1 SIEVE.PHX S~]
   1 SIEVE.ASM Sa
   1 ROM entries for plotting points.
   1 REL       G
   1 RA.PLOT.ABSOLUT
   1 Origin set at (127,100) on the SPECTRUM.
   1 No Addr  Type State Init  Coun
   1 Next free byte is
   1 Microdrive No
   1 MPAFNCSPHXMf>
   1 MPAFNCSPHX
   1 Load to address
   1 Load and run
   1 LOWVER    
   1 K~G\HlHzHeL\D
   1 HIGHVER   
   1 HASH      
   1 H5HXI2JvJ|J
   1 GENASM    
   1 ELLIPSEPHXEi,
   1 ELLIPSEPHXE
   1 ELLIPSEASMEv`
   1 ELLIPSEASME
   1 DESTINATIO
   1 CURRENT BREAKPOINT SELECTIONS
   1 B= Page no. 
   1 B"qv##"ov*iv
   1 Are you sure about that ?
   1 Analyser Error
   1 ASM       
   1 ?x?h?X?`?H?P?
   1 ;Block No.
   1 ;"tel. 011-811-208"
   1 ;"and start the tape."
   1 ;"Version 1.04"
   1 ;"STOP THE TAPE"
   1 ;"START THE TAPE"
   1 ;"Put cartridge in drive 1,"
   1 ;"Press a key"
   1 ;"Loading LOWVER";
   1 ;"Loading HIGHVER";
   1 ;"LASER GENIUS Z80 Assembler"
   1 ;"Ink and paper":
   1 ;"3) Save to microdrive."
   1 ;"2) Customise the program."
   1 ;"1) Load and run the assembler."
   1 ;" P R E D R A G & X O R  S O F T "
   1 6""""ffb&f(2""""332&3(2""""
   1 /Insert m'drive, press any ke
   1 -&"&"&"&"&"
   1 +++++T]++++~
   1 +++++++++~
   1 ** Undefined *
   1 &U(2""""UUR&U(2
   1 "should be different!":
   1 "save under filename ";X$:!=B"]\
   1 "filename ";X$::
   1 "address ";N:!
   1 "Use centronics printer ?        (Y/N)";a$
   1 "TRANSBIN"
   1 "Set ink and paper colours ?     (Y/N)";a$
   1 "Paper colour ? ";papcol:
   1 "O.K. ? (Y/N) ";a$
   1 "Load the tool-kit ? (Y/N)";a$
   1 "Load the hash extensions ?      (Y/N)";a$
   1 "Load from tape or microdrive ?  (T/M)";a$
   1 "Line feed character ? ";lf:
   1 "Input execution address ";N:
   1 "Ink colour ? ";inkcol:
   1 "Change line feed (default 10) ? (Y/N)";a$
   1 "                                ":
   1  ys    = y co-ordinate of centre.
   1  xs    = x co-ordinate of centre.
   1  while count<=5000
   1  while count<=2500
   1  to the screen.
   1  to give pixel co-ordinates.
   1  the AMSTRAD.
   1  standard co-ordinates.
   1  particular screen mode.
   1  of the ellipse.
   1  minor = y semi-axis of ellipse.
   1  major = x semi-axis of ellipse.
   1  listing).
   1  in the array "primeflags".
   1  gving 32 bit result in HL-IX
   1  go diagonally or horizontally ?
   1  expansion factor (AMSTRAD).
   1  drawing routines.
   1  delta=DELTAi+DELTAi-a2s
   1  delta=DELTAi+DELTAi-a2
   1  current plot point.
   1  co-ordinate) axis.
   1  b2s=b2s-b2-b2
   1  accumulator.
   1  Work variables.  (See BASIC
   1  While yi>0
   1  We actually plot (xi,yi),
   1  Type "EXECUTE start" from
   1  This loop marks non-primes 
   1  Test the 32-bit number in
   1  Spectrum.
   1  Spectrum plot routine.
   1  Sieve of Eratosthenes.
   1  Set the precision for multiple precision routines.
   1  Set the origin on the AMSTRAD.
   1  Set PHOENIX stack and flag byte.
   1  Set IX for PHOENIX use.
   1  Set AMSTRAD to 0 if using a
   1  Replace stack pointer.
   1  Reduce the y-axis (AMSTRAD)
   1  ROM's CHAN OPEN
   1  Plot four points of the ellipse (by symmetry).
   1  Plot four points of the ellipse
   1  Plot a single point.
   1  PHOENIX ellipse drawing routines.
   1  On the SPECTRUM set the channel to the main screen.
   1  On the AMSTRAD expand for the
   1  On entry:
   1  Oasis Software 1986"
   1  Note : this is in
   1  Negate yi
   1  Negate xi
   1  NC, NZ means less
   1  Multiplies BC by HL-DE
   1  Multiplier for screen mode on 
   1  Multiplication routine.
   1  Multiple precision workspace.
   1  Multiple precision multiply routines.
   1  Multiple precision functions.
   1  Make a vertical step.
   1  Make a vertical (downwards) step.
   1  Make a horizontal step.
   1  Make a horizontal (right) step.
   1  Make a diagonal step.
   1  Make a diagonal step,
   1  Main loop.
   1  Machine code sieve.
   1  Machine code ellipse 
   1  Loop to print the primes found.
   1  Integer print function. 
   1  Inner integer print function
   1  Initialise work variables.
   1  Initialise long variables.
   1  Increment count
   1  Include the multiple precision source.
   1  Include library routines for arithmetic.
   1  IF delta<=0
   1  IF DELTAi>0
   1  IF DELTA<=0
   1  HL-DE for its sign.
   1  HL already has (yi).
   1  HL = corrected (pixel
   1  GENIUS editor.
   1  Function to write a character
   1  Enter here (EXECUTE start).
   1  Enter at "start"
   1  End of main loop.
   1  Ellipse work functions.
   1  Ellipse centre.
   1  Ellipse axes.
   1  Done, replace stack pointer and return.
   1  Decision function;
   1  DELTAi=2*(1-b)
   1  Constant definitions
   1  Clear the multiple precision
   1  Calculate the screen mode
   1  C, NZ means greater
   1  BC is equivalent to count.
   1  BC is equivalent to "count".
   1  Adjust ellipse x-axis.
   1  AMSTRAD firmware routine calls.
   1  AMSTRAD (1) or SPECTRUM (0) ?    
   1  (xo),(yo) = centre of ellipse.
   1  (major),(minor) = the axes
   1  (go up then along).
   1  (by symmetry).
   1  (-xi,yi),(-xi,-yi),(xi,-yi).
   1  (-xi,-yi)
   1    Sign extend to
   1    32 bits (requires b>0)
   1     a2=a*a
   1       START    END
   1       DELTAi=2*(1-b)
   1         b2s=b2s-b2-b2